tilNiVERSIW OF tlLSNOSS 
0969VAL CONPUfER USORATORY 
NEW COHPUTEft LIBRARY ROUTINE Bl-SiN<»29 



TITLE: 

WPE: 

LENGUl: 

TEMPORARY STORAGE: 



duration: 

FAST RE69STERS CHANGED: Fe 
SUBROUTINES USED: 
ACCURACY: 



Slne«Cos!ne 

c1<»«d, imtltlple entry, r«locat«ble« iwienonic 

13 tmrds 

1 word at « location spactflad by the symbol "caamon" 

(to be defined by the prograaMer) and F2 

100 nlcrosec«Mids {January, 1963) 



PARAMETERS: 

entries: 



METHOD: 



none 

absolute error < 2"*^ 

link in M3 

Enter with x « -B^r In the accumulator. Suf>pose N is the 

addrus of the first ««»rd ®f this routine. 

1} JSBS,2,N (or JSB3,,sln) 

SinTTX is placed in A and OV Is cleared. 

S) JSB5,,H><.1 Cor JISB3,,cos) 

Ctsirx is placed in A and OV is cleared. 

Note: in general the result is unnormal ized. 

Entrance at **sin*' places x » l/8 in A and computes 

cos ir Cx •» 1/2) « sin IT. x(mod 2) Is formed at "cos" and 

then x: S9 1/2 - I X I . The identity sin {'ftfZ - {tT^ { ) - 

cosOTx is used at this point. 

Sinirx is now computed using the T<^byscheff polynomial 

approximation of (tegree IS to the Taylor series expansion 

of sin C'>^8x)« - 1/S < X < 1/2. The polynomial. 



8i«x«y.ckx2»'^\ 



reference: 



is evaluated by tlw standard taclmi<|iia. Tha eoaffleiants 

t«er« calculated on fliltac Ht starting with sin yr^^y <- yS/Si 4 

...-.yl9/l9,« 

Hlldebrand, F, 8./ '*8ntro<fcictlon to NuMrtcal Analysts," 

Hearaw^ni, New York {19SB), 



DATE: 



Jamiary 2B, l^S 



PMNMAHHED BV: 



^ft^lp/it^^J 



APFROVED 8V: 



L^^'^ 



S9Ng-C0SIJtl€ 



6 


DEC-^GyCOS-^ 




sfnSlilB10,3«2048 


1 


co$SfF0,3 

SFIt6, 2, common 




J0ClO,l,cos*l 


2 


DA¥10,3,g04a 




Singes 


3 


MP¥0,3 

LFR6,2*cos-l 




STR0,3 


4 


CA09,1 

Ml»¥0,3 <— j 

A0D9,1 

CJF8,1 — 


5 


lfK6,2^cGmon 




imn,z 

jyi-3 


6 


0tTCSSl7^06in, 04S2l.aj6ll73 


7 


0CT14165^ 3S472, 10711, 10575 


S 


0CT02S01, 1553g, 143S4, 01577 


9 


0CT131S1, 06467 , 17623 ^ 06400 


10 


0CT0S063» 05706, 06336, 13601 


.11 


0eTlS3g5p01030, 14735,04602 


18 


OCTOeggO, 17665, 04210, 14E01 



modiffer constants 

compute sine 

compute «>s!ne; x «. x ^modl 
save m 

clear OV 

I X I ™ l/g ^ A 

x: « 1/2 » I X I 

x^ * A 

set H8 and N9* I: « -6 

store X fn FO 

C? -t. A 

*x2 

"*<„| 

its i » 

restore F6 

*x 

•« exit 

C7 m 3.14159265356859 

Cg » -45,16771277997331 

C5 m g. 55016405214357 

C4 m -.59926438371110 

C3 m .8214445992426«>1 

C2 » «.736293450191«»2 

ei • .446174UB5e2N^ 



